home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 078 (1990-06)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 078 (1990-06)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / TrackSalve / TrackSalve / Source / call.i < prev    next >
Text File  |  1990-06-17  |  1KB  |  99 lines
  1. LibCall        macro
  2.         xref    _LVO\1
  3.         jsr    _LVO\1(a6)
  4.         endm
  5.  
  6. ExCall        macro
  7.         xref    _SysBase
  8.         ifd    Relative
  9.         move.l    _SysBase(a4),a6
  10.         endc
  11.         ifnd    Relative
  12.         move.l    _SysBase,a6
  13.         endc
  14.         xref    _LVO\1
  15.         jsr    _LVO\1(a6)
  16.         endm
  17.  
  18. DosCall        macro
  19.         xref    _DOSBase
  20.         ifd    Relative
  21.         move.l    _DOSBase(a4),a6
  22.         endc
  23.         ifnd    Relative
  24.         move.l    _DOSBase,a6
  25.         endc
  26.         xref    _LVO\1
  27.         jsr    _LVO\1(a6)
  28.         endm
  29.  
  30. IntCall        macro
  31.         xref    _IntuitionBase
  32.         ifd    Relative
  33.         move.l    _IntuitionBase(a4),a6
  34.         endc
  35.         ifnd    Relative
  36.         move.l    _IntuitionBase,a6
  37.         endc
  38.         xref    _LVO\1
  39.         jsr    _LVO\1(a6)
  40.         endm
  41.  
  42. Call        macro
  43.         ifnd    \1
  44.         xref    \1
  45.         endc
  46.         ifd    LatticeAsm
  47.         jsr    \1(pc)
  48.         endc
  49.         ifnd    LatticeAsm
  50.         bsr    \1
  51.         endc
  52.         endm
  53.  
  54. Jump        macro
  55.         xref    \1
  56.         ifd    LatticeAsm
  57.         jmp    \1(pc)
  58.         endc
  59.         ifnd    LatticeAsm
  60.         bra    \1
  61.         endc
  62.         endm
  63.  
  64.  
  65.         ifnd    LatticeAsm
  66. Func        macro
  67.         xdef    \1
  68. \1
  69.         ifeq    NARG-1
  70.         mexit
  71.         endc
  72.         xdef    \2
  73. \2
  74.         ifeq    NARG-2
  75.         mexit
  76.         endc
  77.         xdef    \3
  78. \3
  79.         endm
  80.         endc
  81.  
  82.         ifd    LatticeAsm
  83. Func        macro
  84.         ifnc    \1,''
  85.         xdef    \1
  86. \1
  87.         endc
  88.         ifnc    \2,''
  89.         xdef    \2
  90. \2
  91.         endc
  92.         ifnc    \3,''
  93.         xdef    \3
  94. \3
  95.         endc
  96.         endm
  97.         endc
  98.  
  99.